home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / life2.act < prev    next >
Text File  |  1995-04-22  |  4KB  |  1 lines
  1. ¢BYTE clrcnt=[0] ¢¢BYTE ARRAY ¢     clrtbl(6)=[ 28 54 50 83 148 212 ]¢¢¢PROC CLRDLI()¢¢BYTE clr2=53272,¢     clr0=53270,¢     wsync=54282¢ ¢[72 138 72 152 72]¢¢wsync=1¢clrcnt==+1¢¢if clrcnt>5 then ¢  clrcnt=0¢fi¢¢clr0=clrtbl(clrcnt)¢¢[104 168 104 170 104 64]¢¢RETURN¢¢¢PROC DLIIN()¢¢BYTE n ¢¢CARD dlist,¢     y ¢     ¢y=clrdli¢¢dlist=peekc(560)¢¢¢for n=6 to 41   ¢  do¢  poke(dlist+n,138)¢  od¢¢pokec(512,y)¢   ¢poke(54286,192)¢¢RETURN¢¢¢PROC MAIN()¢  BYTE A,S,Y,D,F,¢       N1,N2,N3,N4,¢       B1,B2,B3,B4,B5,B6,B7,B8,B9,¢       C1,C2,C3,C4¢  CARD SCA,SC1A,J,X,I¢  BYTE ARRAY SC1(800),¢       A1(256),¢       A2(256),¢       A3(256),¢       A4(256)¢  ¢  FOR A=0 TO 254 ¢  DO    ¢    ¢    A1(A)=0¢    A2(A)=0¢    A3(A)=0¢    A4(A)=0¢ ¢    S=A & 64¢    S== RSH 6¢    A1(A)==+S¢    A2(A)==+S¢   ¢    S=A & 16¢    S==RSH 4¢    A1(A)==+S¢    A2(A)==+S¢    A3(A)==+S¢¢    S=A & 4¢    S==RSH 2¢    A2(A)==+S¢    A3(A)==+S¢    A4(A)==+S¢    ¢    S=A & 1¢    A3(A)==+S¢    A4(A)==+S¢  OD¢¢  A1(255)=2¢  A2(255)=3¢  A3(255)=3¢  A4(255)=2¢¢  DO¢¢  Graphics(5)¢  SETCOLOR (2,9,2)¢  SETCOLOR (1,0,12)¢  ¢  for i=0 to 50¢  do¢  printe("}LIFE version 2a by Mark K. Akita")¢  printe("This program was written in ACTION!")¢  printe("ACTION!Trademark Action Computer Services")¢  printe("Portions of this program (c) 1984 A.C.S.")¢¢  od¢  ¢  POKE(752,1)¢  SCA=peekc(88)¢  SC1A=SC1¢  X=19¢  Y=9¢  Setblock(SC1A,800,0)¢  ¢  DO¢¢    A=Peek(53279)¢¢    Color=2 ¢    Plot(x-1,y)  ¢    PLOT(x+1,y)¢    Plot(x,y-1)¢    PLOT(x,y+1)¢¢    S=stick(0)¢¢    If s=14 then¢    y==-1¢    Fi¢¢    If s=13 then¢    y==+1¢    Fi¢¢    If s=7 then¢    x==+1¢    Fi             ¢ ¢    If s=11 then¢    x==-1¢    Fi¢¢    If s=10 then ¢    x==-1¢    y==-1¢    Fi¢ ¢    If s=6 then¢    x==+1¢    y==-1¢    Fi¢¢    If s=9 then¢    x==-1¢    y==+1¢    Fi   ¢¢    If s=5 then ¢    x==+1¢    y==+1¢    Fi¢¢    If y>38 then¢    y==-38¢    Fi¢¢    If y<1 then ¢    y==+38¢    Fi¢    ¢    If x>78 then ¢    x==-78¢    Fi¢ ¢    If x<1 then¢    x==+78¢    Fi¢¢    If s#15 then ¢    Moveblock(SCA,SC1A,800)¢    Fi¢¢    D=LOCATE(X,Y)¢    PRINTF("X=%B,Y=%B³³³%E",X,Y)¢    PRINTE("Enter a pattern using the joystick!")¢    PRINTE("Press צקIJפק to activate")¢    POKE(656,0)¢    Color=1¢    Plot(x,y)¢    COLOR=D¢    PLOT(X,Y)¢    S=strig(0)¢    If s=0 then¢    Moveblock(SCA,SC1A,800)¢    Color=1-D¢    Plot(x,y)¢    Moveblock(SC1A,SCA,800)¢    SOUND(0,55,10,8)¢    fi¢  ¢  Sound(0,0,0,0)¢  Until a#7¢¢  Od¢¢  PRINTE("}              ")¢  PRINTE("Press צקIJפק to quit")¢  dliin()¢¢  DO¢  For I=20 TO 779¢  Do¢    B1=SC1(I-21) & 1¢    B2=SC1(I-1) & 1¢    B3=SC1(I+19) & 1¢    B4=SC1(I-20)¢    B5=SC1(I)¢    B6=SC1(I+20)¢    B7=(SC1(I-19) & 64) RSH 6¢    B8=(SC1(I+1) & 64) RSH 6¢    B9=(SC1(I+21) & 64) RSH 6 ¢    N1=A1(B4)+A1(B5)+A1(B6)+B1+B2+B3¢    N2=A2(B4)+A2(B5)+A2(B6)¢    N3=A3(B4)+A3(B5)+A3(B6)¢    N4=A4(B4)+A4(B5)+A4(B6)+B7+B8+B9¢    C1=(B5 & 64) RSH 6¢    C2=(B5 & 16) RSH 4¢    C3=(B5 & 4) RSH 2¢    C4=B5 & 1¢    Y=0¢ ¢    IF C1=0 THEN¢      IF N1=3 THEN ¢        Y=128¢      FI¢    ELSE¢      IF N1<3 OR N1>4 THEN¢        Y=128¢      FI¢    FI¢¢    IF C2=0 THEN¢      IF N2=3 THEN ¢        Y==+32¢      FI¢    ELSE¢      IF N2<3 OR N2>4 THEN¢        Y==+32¢      FI¢    FI¢    ¢    IF C3=0 THEN¢      IF N3=3 THEN¢        Y==+8¢      FI¢    ELSE¢      IF N3<3 OR N3>4 THEN¢        Y==+8¢      FI¢    FI¢¢    IF C4=0 THEN¢      IF N4=3 THEN¢        Y==+2¢      FI¢    ELSE¢      IF N4<3 OR N4>4 THEN ¢        Y==+2¢      FI¢    FI¢    SC1(I)== % Y¢      ¢  OD¢  MOVEBLOCK(SCA,SC1A,840)¢    ¢  FOR I=21 TO 779¢  DO¢  A=SC1(I)& 170¢  A== RSH 1¢  SC1(I)== & 85¢  SC1(I)== ! A¢  OD¢  MOVEBLOCK(SCA,SC1A,840)¢  F=PEEK(53279)¢  UNTIL F#7 ¢OD¢od¢¢RETURN¢ ¢¢xxxxxxxx